#!/usr/bin/perl -w 

use strict;
#use CGI;
#my $query = new CGI;

my $sendmail = "/usr/sbin/sendmail -t";
my $email_address = "yanlin001\@yahoo.com";

my $content = "US REPORT";

open(MAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print MAIL "From: $email_address\n";
print MAIL "To: yanlin001\@yahoo.com\n";
print MAIL "Subject: Anywhere Client Side Daily Latency Report: \n";
print MAIL "$content\n";
print MAIL "\n.\n";
close ( MAIL );

#print $query->header;
print "Confirmation of your submission will be emailed to you.";
